home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
EXPANDEI.SM
< prev
next >
Wrap
Text File
|
1993-10-16
|
181b
|
6 lines
# expandEi expands ei(n,x) into power series.
# See also: expand, expandGa, expandExp.
ei(n_,x_) := if(n>=1, -n*ei(n-1,x)+x^n*e^x,
if(n<-1, (-ei(n+1,x)+x^(n+1)*e^x)/(n+1)))